home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Database How-To / Visual Basic 4 Database - How-to (The Waite Group)(1995).iso / btrieve.fr_ / btrieve.fr
Text File  |  1995-07-05  |  7KB  |  219 lines
  1. VERSION 4.00
  2. Begin VB.Form frmOrders 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "Orders"
  6.    ClientHeight    =   2115
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   7365
  10.    BeginProperty Font 
  11.       name            =   "MS Sans Serif"
  12.       charset         =   0
  13.       weight          =   700
  14.       size            =   8.25
  15.       underline       =   0   'False
  16.       italic          =   0   'False
  17.       strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   2520
  21.    Left            =   1035
  22.    LinkTopic       =   "Form1"
  23.    ScaleHeight     =   2115
  24.    ScaleWidth      =   7365
  25.    Top             =   1140
  26.    Width           =   7485
  27.    Begin VB.CommandButton cmdClose 
  28.       Appearance      =   0  'Flat
  29.       BackColor       =   &H80000005&
  30.       Caption         =   "&Cl&ose"
  31.       Height          =   315
  32.       Left            =   5940
  33.       TabIndex        =   10
  34.       Top             =   1440
  35.       Width           =   1035
  36.    End
  37.    Begin VB.CommandButton cmdDelete 
  38.       Appearance      =   0  'Flat
  39.       BackColor       =   &H80000005&
  40.       Caption         =   "&Delete"
  41.       Height          =   315
  42.       Left            =   4680
  43.       TabIndex        =   9
  44.       Top             =   1440
  45.       Width           =   1035
  46.    End
  47.    Begin VB.CommandButton cmdAdd 
  48.       Appearance      =   0  'Flat
  49.       BackColor       =   &H80000005&
  50.       Caption         =   "&Add"
  51.       Height          =   315
  52.       Left            =   3240
  53.       TabIndex        =   8
  54.       Top             =   1440
  55.       Width           =   1155
  56.    End
  57.    Begin VB.TextBox lblDate 
  58.       Appearance      =   0  'Flat
  59.       DataField       =   "Date"
  60.       DataSource      =   "Data1"
  61.       Height          =   315
  62.       Left            =   4140
  63.       TabIndex        =   3
  64.       Top             =   780
  65.       Width           =   1635
  66.    End
  67.    Begin VB.TextBox lblQuantity 
  68.       Appearance      =   0  'Flat
  69.       DataField       =   "Quantity"
  70.       DataSource      =   "Data1"
  71.       Height          =   315
  72.       Left            =   1140
  73.       TabIndex        =   2
  74.       Top             =   780
  75.       Width           =   1215
  76.    End
  77.    Begin VB.TextBox txtCustomerNumber 
  78.       Appearance      =   0  'Flat
  79.       DataField       =   "Customer Number"
  80.       DataSource      =   "Data1"
  81.       Height          =   315
  82.       Left            =   4320
  83.       TabIndex        =   1
  84.       Top             =   300
  85.       Width           =   735
  86.    End
  87.    Begin VB.TextBox txtISBN 
  88.       Appearance      =   0  'Flat
  89.       DataField       =   "ISBN"
  90.       DataSource      =   "Data1"
  91.       Height          =   285
  92.       Left            =   960
  93.       TabIndex        =   0
  94.       Top             =   300
  95.       Width           =   1995
  96.    End
  97.    Begin VB.Data Data1 
  98.       Appearance      =   0  'Flat
  99.       Caption         =   "Orders"
  100.       Connect         =   "Btrieve;"
  101.       DatabaseName    =   "C:\ACCOUNTS\BTR-ACC\FILE.DDF"
  102.       Exclusive       =   0   'False
  103.       Height          =   315
  104.       Left            =   300
  105.       Options         =   0
  106.       ReadOnly        =   0   'False
  107.       RecordsetType   =   1  'Dynaset
  108.       RecordSource    =   "SELECT * FROM ORDERS ORDER BY ISBN"
  109.       Top             =   1440
  110.       Width           =   2535
  111.    End
  112.    Begin VB.Label Label4 
  113.       Appearance      =   0  'Flat
  114.       AutoSize        =   -1  'True
  115.       BackColor       =   &H00C0C0C0&
  116.       Caption         =   "&Date Ordered:"
  117.       ForeColor       =   &H80000008&
  118.       Height          =   195
  119.       Left            =   2820
  120.       TabIndex        =   7
  121.       Top             =   810
  122.       Width           =   1215
  123.    End
  124.    Begin VB.Label Label3 
  125.       Appearance      =   0  'Flat
  126.       AutoSize        =   -1  'True
  127.       BackColor       =   &H00C0C0C0&
  128.       Caption         =   "&Quantity:"
  129.       ForeColor       =   &H80000008&
  130.       Height          =   195
  131.       Left            =   300
  132.       TabIndex        =   6
  133.       Top             =   810
  134.       Width           =   780
  135.    End
  136.    Begin VB.Label lblCustomerNumber 
  137.       Appearance      =   0  'Flat
  138.       AutoSize        =   -1  'True
  139.       BackColor       =   &H00C0C0C0&
  140.       Caption         =   "&Customer #:"
  141.       ForeColor       =   &H80000008&
  142.       Height          =   195
  143.       Left            =   3240
  144.       TabIndex        =   5
  145.       Top             =   330
  146.       Width           =   1035
  147.    End
  148.    Begin VB.Label lblISBN 
  149.       Appearance      =   0  'Flat
  150.       AutoSize        =   -1  'True
  151.       BackColor       =   &H00C0C0C0&
  152.       Caption         =   "&ISBN:"
  153.       ForeColor       =   &H80000008&
  154.       Height          =   195
  155.       Left            =   360
  156.       TabIndex        =   4
  157.       Top             =   330
  158.       Width           =   510
  159.    End
  160. End
  161. Attribute VB_Name = "frmOrders"
  162. Attribute VB_Creatable = False
  163. Attribute VB_Exposed = False
  164. Option Explicit
  165.  
  166. Dim rs As Dynaset
  167.  
  168. Private Sub cmdAdd_Click()
  169.     ' Use the AddNew method of the data control's Recordset property to add a new record to the data base.
  170.     rs.AddNew
  171.     ' Set the focus to the first field on the form.
  172.     txtISBN.SetFocus
  173. End Sub
  174.  
  175. Private Sub cmdClose_Click()
  176.     ' If the user added a new record or made changes to an existing record
  177.     ' save the changes.
  178.     Unload frmOrders
  179.     ' Close the application
  180.     End
  181. End Sub
  182.  
  183. Private Sub cmdDelete_Click()
  184.     If MsgBox("Do you want to delete this order?", vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then
  185.         rs.Delete
  186.         rs.MoveNext
  187.         If rs.EOF Then
  188.             If rs.RecordCount = 0 Then
  189.                 EmptyRecordset
  190.             Else
  191.                 rs.MovePrevious
  192.             End If
  193.         End If
  194.     End If
  195.  
  196. End Sub
  197.  
  198. Private Sub EmptyRecordset()
  199.     ' Gives the user a chance to add a record to the data base. If the user
  200.     ' elects not to add a record, the program terminates.
  201.     Dim msg1 As String, msg2 As String, msg3 As String
  202.        
  203.     msg1 = "There are no customer records in the data base. "
  204.     msg2 = "Do you want to add a new blank record? "
  205.     msg3 = "(If you answer no, the program will terminate.)"
  206.     If MsgBox(msg1 & msg2 & msg3, vbQuestion + vbYesNo) = vbYes Then
  207.         cmdAdd_Click
  208.     Else
  209.         End
  210.     End If
  211. End Sub
  212.  
  213. Private Sub Form_Activate()
  214.     Set rs = data1.Recordset
  215.     If rs.RecordCount = 0 Then EmptyRecordset
  216.  
  217. End Sub
  218.  
  219.